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1B-Se0-1986 00:15:42 ARC FORTRAN YS.4-56 


SUBROUTINE TIMRB (LUN)! NOTE BEGINNING OF TIMED INTERVAL 


1 
0003 ¢ 
§ : Version: *v04-000' 
5 Ceeee eee eee eRe AAAAAAAAAAAEAAAAAEAEAAAAAHEHTEEAAAAAT RATATAT EKER Eee 
Ce 
C* COPYRIGHT (c) 1978, 1980, 1982, 1984 BY * 
8 C* DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. * 
ais x ALL RIGHTS RESERVED. * 
® 
0011 C* THIS SOFTWARE IS Fyne] SHED UNDER A LICENSE AND MAY BE USED AND COPIED * 
Bet6 C* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * 
1 C* INCLUSION OF THE ABOVE eget NOTICE. THIS SOFTWARE OR ANY OTHER * 
0014 C* COPIES THEREOF oa NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
0015 C* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
Bot8 Fs TRANSFERRED. * 
* ® 
0018 Ce phe INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
0019 C* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
88 ‘ CORPORATION. x 
® 
00 ; C* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 
B087 eS SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * 
® 
0025 Ce 
Boee _ Sakasi ac at ta PAE aR a om A i ea AO Ri 
$038 C++ 
5 94 : FACILITY: ERF, Errorlog Report Formatter 
0031 C ABSTRACT: 
ot 4 C 
et Fy : Runtime statistics timing package. 
$035 C ENVIRONMENT: 
0036 C 
tH : VAX/VMS operating system, unprivileged, user mode. 
0039 C MODIFIED BY: 
0040 C 
0041 C v03-002 SARO212 Sharon A. Reynolds 22-Mar-1984 
Boe6 C Changed the carriage control in a format statement for 
Be? : use with output file. 
boc8 C v03-001 JMGO010 Joel M. Gringorten 02-Feb-1984 
Boag C Rewrote the error hand Ling from GETJPI system service to 
i : utilize LIBSSIGNAL, and the ERFMSG file. 
] C 
29 : ap CURRENT PROCESS STATISTICS IN VARIABLES IN COMMON 
tts ; CALL TIMRB 'START OF TIMED INTERVAL 
54 C EQUATED SYMBOLS: 
2? C 
3 


COMMON /STAT_VARS/ T0,BUFIO,CPUTIME ,DIRIO,PFLTS 
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if sec] 9h 7e:23:3¢  DLSKSVMSMASTER: LER 


INTEGER*®4 BUFIO,CPUTIME ,DIRIO,PFLTS 


OMMON /JOB_ PARAR/ ZALENGA-BUEIO CODE ,BUFI10_ADR, ZERO 
CPUTIME CODE, CPUTIME_ADR, ZERO1, 
LENG C.D IRIO-CODE,DIRIO_ADR- ZERO ‘ 
LENGD ,PFLTS_CODE ,PFLTS_ADR, ZEROS, 
ZEROG 
TE LUN 
INTEGER®2 LENGA,LENGB,LENGC,LENGD 
INTEGER®? BUFIO.CODE,CPUTIME CODE ,DIRIO_CODE,PFLTS CODE 
INTEGER®4 BUFIO-ADR, CPUTIME ADR,DIRIO_ADR,PFLTS ADR 
INTEGER®4 NEW BOFIO,NEW CPUTIME NEW DIRIO,NEW PFLTS 
INTEGER®4 ZERO, ZERO1, ZEROZ2, ZEROS, ZEROS, SYS$GETIPI, STATUS 
LOGICAL®*1 ERROR 
EXTERNAL ERF_NOSTATS, ERF_GETJPIERR 


eeee bh hing FOLLOWING CODES ARE VMS SYMBOLLIC PARAMS. 
THEY MAY CHANGE IN FUTURE VERSIONS OF VMS...BEWARE! 
DATA BUF IO mCODE / 10 


1036/ ! JPI$_BUF 
DATA CPUTIME CODE /1031/ i JPIS-CPUTIM 
DATA DIRIO_CODE 110824 i JPIS“DIRIO 
DATA PFLTS_CODE /1034/ i JPIS~PAGEFLTS 
DATA LENGA;LENGB,LENGC,LENGD /4,4,4,4/7 


Seeeeesessssssessesesssssssesssssee222e222=252222=2= 
TO = SECNDS(O.) 

BUF 10_ADR = ZLOC(BUFIO) 

CPUTIME_ADR = setet yt tee 

DIRIO_ABR = ZLOC(DIRIO) 

PFLTS_ADR = ZLOC(PFLTS) 


ERROR = .FALSE. 

STATUS = SYSSGETJPI(,,,LENGA,,,) 

IF (.NOT. STATUS) THEN 

CALL LIBSSIGNAL (CERF _GETJPIERR,2VAL(0) ,.2VAL(STATUS) ) 


ERROR = .TRUE. 
ENDIF 


RETURN 
ENTRY TIMRE (LUN)! PRINT EXECUTION STATISTICS FOR INTERVAL 
USAGE : 

CALL TIMRE 'END OF TIMED INTERVAL 


TIMRE OBTAINS ewoccee STATISTICS AND SUBTRACTS THE 


BEGINNING-OF -INTERVAL STATISTICS ner onoe? BY TIMRB. 
inte og eet af WALUES ARE WRITTEN TO UNIT ‘'TTY"’ 
BUF 10_ADR = ZLOC(NEW_BUF 10) 

CPUTIME_ADR = ZLOC(NEW"CPUTIME) 


CITIMRB.FOR; 1? 
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DIRIO_ADR = BLS (MEU DIRT} 

PFLTS_ADR = ZLOC(NEW_PFLTS) 

STATUS = SYSSGETJPI(,,,LENGA,,,) 

IF (.NOT, STATUS) THEN 

CALL LIBSSIGNAL(ERF _GETJPIERR,ZVAL(0) ,2VAL(STATUS) ) 
ERROR = . TRUE. 

ENDIF 


CLKTIME = SECNDS(TO) 
CPUSECS = (NEW pt 5 pitti 


BUFIO = NEW_BUFIO = BUF 

DIRIO = NEW_DIRIO = DIRIO 
PFLTS = aa LTS = PFLTS 

IF (ERROR) THEN 

CALL CTOSS1GNAL CERF _NOSTATS) 
ELSE 


CALL LINCHK (LUN,7) 


WRITECLUN, 110) CPUSECS, CLKTIME ,PFLTS,DIRIO,BUF 10 

FORMAT (' ROGRAM RUNTIM STATISTICS’ »// 

1° ',18 tie? IN SECONDS’ ,129," PAGE 149, "DIRECT! 149, "BUFFERED'/, 
: © 0°18, 5CPU ELAP SED 729, *FAULTS', 139," - 149," 1/0'.//, 
Soir’ *16,F9.1,F9.1,T2 1100 189,16,149.18,/) 


SAVE STATE FOR NEXT TIME AROUND 
THE USER IS SUPPOSED TO CALL TIMRB AGAIN, BUT IN CASE HE DOESN'T ... 


TO = SECNDS(0.) 
CPUT 


1G-$e0-1964 00:15:47 VAXTY FORTRAN VS.4056 0 


> | 
TIMRB -Sep-1984 00: VAX=11 FORTRAN V3.4-56 p 4 
if: Sep-1984 90: 33 $2 DISKSVMSMASTER: CERF .SRCITIMRB.FOR:1 > | 


PROGRAM SECTIONS 


Name Bytes Attributes 
0 SCODE 357 PIC CON REL LCL SHR EXE RD NOWRT LONG 
1 SPDATA 175 PIC CON REL LCL SHR NOEXE RD NOWRT LONG 
¢ OCAL 11 PIC CON REL LCL NOSHR NOEXE RD WRT LONG 
STAT_VARS ¢ PIC OVR REL GBL SHR NOEXE RD WRT LONG 
4 BaRAM PIC OVR REL GBL SHR NOEXE RD WRT LONG 
Total Space Allocated 720 


ENTRY POINTS 


Address Type Name Address Type Name 
0-00000000 TIMRB 0-0000005F TIMRE 
VARIABLES 
Address Type Name Address Type Name Address Type Name Address Type Name 
3-000000046 I*4 BUFIO 4-00000004 [4 oth, ADR Pa SS 4 $45 I*2 BUFIO CODE 2-00000018 R*4 CLKTIME 
-0000001C R*4 CPUSECS 3-00000008 [#4 UTIME 4-0000001 I*4 CPUTIME_ADR 4-Q000000E I*2 aL ae _CODE 
-0000000C I*4 DIRIO 4-0000001C I1*4 bIRIO ADR 4-Q000001A iss DIRIO_CODE 2-00000000 L*1i ERR 
4-00000000 I*2 - O0O0C I*2 LEN4B 4-00000018 I*2 LEN4C™ 4-00000024 I*2 LE Ned 
AP-00000004@ L*1 LUN -00000004 [#4 NEU BUF IO am 4949484 1*4 shy CPUTIME 2-0000000C I*4 NEW DIRIO 
-00000010 I*4 NEW _PFLTS mss 4 9: I*4 PFLTS 4-000000 I*4 PFLTS_ADR pam 4s 64 Cg 1*2 PEL TS. CODE 
-00000014 I*4 STATUS -00 Beooe ReG 70 ree 4444 I*4 ZERO 4-00000014 I*4 ZER 
4-00000020 I*4 ZERO2 4-0000002C I*4 ZEROS 4-000000 I*4 ZEROG 
LABELS 
Address Label 
1-00000008 110° 
FUNCTIONS AND SUBROUTINES REFERENCED 
Type Name Type Name Type Name Type Name Type Name Type Name 
ERF _GETJPIERR ERF _NOSTATS R*4 FORSSECNDS LIBSSIGNAL LINCHK I*4 SYSSGETJPI 


COMMAND QUALIFIERS 
FORTRAN /LIS=LIS$:TIMRB/OBJ=0BJ$:TIMRB MSRCS$:TIMRB 


/CHECK= (NOBOUNDS OVERF LOW,,NOUNDERF LOW) 
/DEBUG= ae TRAC 


if sion aht PSR DERKSUmSRASTER: EEA SRcaTIMRB.FOR:1 "29° 9 


TIMRB 


COMPILATION STATISTICS 


Time 1.78 seconds 
Etapsea. tae +3 seconds 
Dynamic Memory 169 pages 
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